home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
jaz_clib.arc
/
JZDELETE.C
< prev
next >
Wrap
Text File
|
1989-04-09
|
1KB
|
40 lines
/*
┌────────────────────────────────────────────────────────────────────────────┐
│jzdelete.c │
│Delete an item from the window list. │
│ │
│See screen.dmo for examples │
│ │
│ (C) JazSoft Software by Jack A. Zucker (301) 794-5950 │
└────────────────────────────────────────────────────────────────────────────┘
*/
#include <jaz.h>
#include <jzscreen.h>
extern THEADER g_header;
jzdelete(fnum)
int fnum;
{
TWINDOW *wtemp,*wptr;
if ( ! g_header.first ) return; /* exit routine if empty list */
wtemp = g_header.first;
if ( wtemp->number == fnum) g_header.first = wtemp->next;
else {
do {
wptr = wtemp;
wtemp = wtemp->next;
} while (wtemp->number != fnum && wtemp);
if (wtemp) {
if (g_header.last == wtemp) g_header.last = wtemp->next;
wptr->next = wtemp->next;
}
}
free((int *) wtemp->buf);
free((TWINDOW *) wtemp);
g_header.length--;
}